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OPAL est un programme écrit en ALGOL 510 destiné š disposer dans une surface 
un certain nombre de figures simples (rectangles, losanges, cercles, ellipses). 


Cette surface sera assimilée à un ensemble de points ne pouvant prendre que 
deux états possibles (ex: blanc ou noir). 


L'inclusion des figures sera obtenue par changement d'état des points à 
l'intérieur de ces figures. 


I - Introduction des données. 
En début de programme les données suivantes seront introduites sur M.A.E. 


- un nombre (NB) destiné à "lancer" la procédure aléatoire, 
- le nombre de lignes (IM), de colonnes (JM) de l& surface totale, 
- le nombre de rectangles (NREC), de losanges (NLOS), de cercles (NCER), et 
d'ellipses (NELL) à y inelure. 
/ PROG 012 021/ 


II - Calcul des paramètres. 


En ALGOL 510, la déclaration d'un tableau de dimension assez grande étant 
impossible (par manque de place en mémoire), la surface totale ne sera pas 
représentée en mémoire. | | 


Dans un premier temps, les paramètres de toutes les figures à inclure vont 
être calculés et stockés dans les tableaux REC, LOS, CER, ELL. 


Ces paramètres sont calculés aléatoirement. Une seule règle générale est 

fixée : l'intersection de deux figures ne peut être 

- que vide (figures disjointes), 

— qu'un point, 

- qu'une surface. 

En aucun cas elle ne peut être un segment de droite, ceci afin de préserver la 
perception des figures. 


Les procédures utilisées sont : 
- AL, procédure aléatoire classique, pouvant relancer le programme, ei les 
paramètres ne peuvent être trouvés. 
/ PROG 100 / 
- SURI; SURJ qui indiquent si les abcisses ou les ordonnées des paramétres 
^ trouvés ont déjà été utilisées. 
/ PROG 200 300 / 
- SURLOS qui indique si le paramétre trouvé se situe sur un périmétre de 
losanges. / PROG 100 / 


Pour chaque rectangle on calculera deux abcisses et deux ordonnées, pour 
chaque losange et pour chaque cercle une abcisse, une ordonnée et un rayon, 
et pour chaque elíipse une abcisse, une ordonnée, un grand axe et un petit 
axe. / PROG 500 600 700 800 / 


Les paramétres trouvés sont ensuite imprimés sur M.A.E. 
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III - Sortie de la figure 


La surface totale est divisée en blocs de 80 colonnes sur le nombre total de 
lignes. 


Ces bloes seront extraits un à un. La fin de chaque bloc sera signalée par 
l'impression sur M.A.E. du libellé FB et l'arrét du calculateur. 


/ PROG 900 / 


Les blocs peuvent être 


~ imprimés sur M.A.E. CLE(4), sur 80 caractères, les deux états étants X et 
espace . 


/FIG 1 / 


- perforés CLE(3), sur 80 caractères avec ces mêmes Gtats et adjonction en fin 
de ligne du caractére Z. La procédure standard PERF rajoutant en fin d'exécu- 
tion 3 espaces et un RC, le ruban aura comme aspect en fin de ligne : 

/ 80 caractères / / 3 espaces RC / / 7 / / 3 espaces RC / 


"— À—À 
“м... 


Ce ruban a la propriété de pouvoir être lu directement par une FLEXO (CODE САВ) 
déconnectée. En position "minuscules" les correspondances seront : 


X (CAE) | —-—- o» a espace (CAE) -meme ~to " 
RO (CAE) = Z (CAE) —-—— RC 
/ FIG 2 / 


— — — — — — w — — — — wna, шд» — -— — — a — — — — — — — — — — — — i m sss ms V VQ — — — 


Sur М.А.Е CAE le rapport hauteur sur longueur d'un caractère étant voisin de 
5/3 (H = 0,425 cm ; L = 0,25 cm), il en résulte une transformation de la figure. 


Dans la figure 1 "l'ellipse" provient de l'équation d'un cercle et le "cercle" 
de l'équation d'une ellipse de rapport grand axe sur petit exe voisin de 5/3 


(19/11). 


Sur FLEXO САВ ce rapport est voisin de 2/1 ( Н = 0,42 сш; L = 0,21 сш). 
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Ce programme écrit en langage externe CAB permet de lire un ruban CAE. Cette 
lecture ne posera aucun problème car le contrôle d'imparité est le même (le 
nombre de perforations est impair). 


D'autre part il permet de faire correspondre à deux lignes de ruban CAE une 
ligne sur FLEXO, ce qui conservera les dimensions exactes des figures en rame- 
nant le rapport hauteur sur longueur des caractéres voisin de 1/1. 


Pour cela on utilisera les caractéres 
(EXP)° et espace pour la ligne haute 
(IND) et espace pour la ligne basse. 
о 


/ FIG 3/ 
Description du programme 


1 Lecture du début du ruban jusqu'à la rencontre du caractère RC(CAB) = Z(CAE) ; 
ce qui fait perdre la premiére ligne mais évite de placer manuellement le ruban 
au début exact de la ligne. 

/ 1,1 à 1,6 / 


= Introduction de la ligne haute en piste 2,0, de la ligne basse en piste 3,0 
jusqu'à la rencontre du caractère RC{CAB) 


/ 1,7 à 1,29 / 


3 Comparaison du nombre de caractéres introduits dans les deux lignes. Le program- 
me s'arréte si ces deux nombres sont différents. 


/ 1,80 à 1,33 / 


I 


Recherche de l'adresse du dernier caractére non blanc de chaque ligne. La 
plus grande est conservée. / 1,35 à 1,hh / 


5 Impression 
- pour la ligne haute (EXP)? puis espace arriére si X (CAE) 
rien si espace (CAE) 
- pour la ligne basse (IND) si X (CAE) 
° espace si espace (CAE) 
jusqu'à l'adresse trouvée en (1) , puis RC et retour en (2). 


/ 1,57 à 1,74 / 


En position "VARTANTE" allumée, le contraire se produit, créant ainsi une 
image négative. 
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— <= x. 


001 
002 


100 
101 
102 
103 
104 
105 
106 
107 
108 


010 
011 
012 
013 
015 


020 
021 


050 
051 
052 
053 
05h 


200 
201 
202 


300 
301 
302 


400 
+01 
402 
403 
4O4 
405 
406 
+07 
408 
409 
410 
411 
412 
+15 


414 


060 
061 


'DEB' 


хох 


as 


se er 


'ENT! IM,JM L, NB NAL, NLOS, NREC,NCER ,NELL; 


'ENT' PROC?! А СМ) ; 


РЕВ! 
"SI 


NB:=5*NB ; 
' NB ‘SUG! 


ENT! М 


1095 


'ALO'! 


* 
5 


NB:zNB-(NB$1093)5*10935 : 


NAL :zNAL-41 ; 


тс! 


toi! 
FINAL: 


'FIN' DE LA PROCEDURE ALEATOIRE ; 


BEGIN : 


EXLC&!NB IM ома? 
L ICLAV CNB, IM,UM) 


NAL : =0; 
L:= ' 


NAL * 


INF! 


tALO! 


1000 
EXLCE!41000 ALQ) ; 
CLE (7) 


MALO! 
IMPR ; 
TALL I B 


AL: =NB-CNBSN)*N41 ; 


‘ee We 


IMPR ; 


ЕХІ. (5! МЕС NLOS NCER, NELL Q) 
LICLAVCNREC,NLOS, NCER NELL) 


"РЕВ? 'ENT' 'TAB' LOS, (0:NLOS,1:3), , PEC,COINREC, 1:5), , 


'ALL' 
NAL :z0 
EGIN ; 


? 


IMPR 


° 
/ 
° 
? 


FINAL 


, 


ә 
, 


CER,CO:NCER, 1:3), , ELL.CO:NELL, 1:4), 


‘Boo! 


' ENT 


"BOOT NC,PN ; 


t BOO ' 
SURI 
tou! 


"ВОО ' 


' TAB! 


A,B,C,D,I,J, K,M,T ? 


‘PROC’ SURICN) ; 


IB, 


IB. CN), 


"PROC! SURJCND ; 


a 


(N-25, 


SURJ:z УВ. CN-2), 


‘out JB. CN), 


‘Bon! 
'DEB' 


'Pou' 


'PROC'! SURLOS(N, I,J) 3 


tout 


tE 
‘Tout IB, 
IB. СМ+1 


UE 
'OU' JB. 


100! JB, CN-12, 


NT' м; 
CN-1), 
oY 


NT' N; 
(N-1), 


‘ENT’ LA,LR,LC1,LC2,COMP ; 


COMP :=1 
'"OEB' LCO1:=LOS. CCOMP,3),+2 ; 
LA:zI-LOS,CCOMP, 


'PAS! 1 


1). 


JUS! N 


ы 


IB. C1:1MD, , JB.CliuM), ; 


‘FAI! 


LC2:=LOS, CCOMP,3),-2 


? 


SI! IM 'SUP' UM 'ALO' JM$10 'SIN' IM$10 ; 


* 


P 


'OU! IB. См+2),; 


'OU' JB. CN*2D), ; 


'ENT' М, T,U ; 


a 


3 L8:zJ-LOS, CCOMP,2), ; 


'SI! LA+LB 'SUP'! LC1 tout LA-LB SUP! LCI 
‘OU! LB-LA ?SUP' LCI 100 -LA-LB 'SUP'! LCI 
'ALO' ALL’! FALSE ; ` 
"SI" LA+L B ‘INF? LC2 "ET! LA-LB 'INF' LC2 
TET’ LB-LA INF! LC2 "ЕТ! -LA-LB ‘INF! LC2 
ЛЕО! 'ALL' FALSE 'SIN' ‘ALL! TRUE ; 
FALSE : 'FIN' o 
SURLOS:- 'FAUX' ; 'ALL' FSURLO ; 
TRUE : SURLOS:= 'VRAI' ; 
FSURLO : 'FIN' DE SURLOS ; 
РОЧ! K:zl "PAS' 1 'JUS' IM 'FAI*' IBY СК), :='FAUX! 
‘POU! K:=1 ‘PAS! 1 'uUS'! JM ‘FAI! ШВ, СК», := 
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F AUX! 


° 
? 

° 
d 


a 


500 


611 
812 
813 
814 
815 
816 
817 
81% 
819 
820 
821 
322 


‘com! хх CALCUL DES PARAMETRES DES LOSANGES  ** 
EXLCS!LOSANGES@) ; EXEC, NLOS) 3 IMPR ; 
'POU' K:=1 "РАЗ! 1 'JUS' NLOS ‘FAI! 
"РЕВ? LOSI : Cr=ALCL¥5-12)+6 ; 
A:zALCIM-2*C-6)4C«45 ; 
B:zALCJM-2* C-6)4+C4+3 3 
SI? SURTCA+C) 'OU! SURICA-C) 104' SURI CAD 
00? sSURUCB4+C) #09* SURUCB-C) 'OU'! сузу СВ) 
‘ALO PALL? LOSI ; 
ТВ. СА), =1ІВ, CA-*C2,:z IB, СА-С», : 
JB, СВ», :zJB, (B+C), 2=UB. (B-C), := 'VRAI' ; 
LOS., CK,1),:=A 3; LOS.CK,2),:=B8 ; LOS, CK,3),:=C ; 
ЕХЕ (В, A,B,C) ; IMPR р 'FIN' LOSANGES ; 


we 


we H 1! 


'СОМ! И“ CALCUL DES PARAMETRES DES FLLIPSES *# 
EXLCELELLIPSES@) ; EXEG NELL) ; IMPR ; 
'"POU' K:zl 'PAS' 1 'JUS' NELL ‘FAI! 
'DEB'! ELLI : C:-ALCIPI$2-20)2*10 ; 

D:zALCJM$2-20)-10 ; 

A:zAL CIM-2% CC+5 DD+C+5 ; 

B: =AL CJM-2*(D4+5))4D+4+5 ; 

SJ! SURICA«C) "OU! SURICA-C) 'OU' SURUCB+D) 

‘TOU! SURJUCB+D) ALOT "ALLY ELLI ; 

IB, СА+С), :: IB, (A-C), : 

JB. CB4D2, :=JB.CB-D),:= 'VRAI' 

ELL,CK,13,:=A ; ELL,(CK,22, :=В 

ELL,CK,32,:7C 3 ELL.CX,5 2, :zD 
EXE CH, A,B,C,D) ; IMPR р 'FIN' ELLIPSES ; 


we ‘ae w^ 


'Сом* 8% CALCUL DES PARAMETRES DES CERCLES XX  ; 
EXLCE!ICERCLES@) ; EXEC3,NCER) ; IiPR ; 
OU! К:=1 ‘PAST 1 'JUUS' NCER 'FAI' 
'РЕВ' СЕРІ : C:zALCL*5-202«*10 ; 
A:zALCIM-2*(C45))* C45 ; 
B:zALCJUM-2*(C4520*C^45 ; 
'$1' SURICA-C) 'OU'! SURICA-C) ‘OU! SUR J(B+C) 
"00" SURUCB=C) 'ALO'! 'ALL' CERT ; 
IB, СА+С), : z IB, СА-С), := 
JB, CB+C), :=4 В. (В-С),:= VRAI! ; 
СЕР, (К,1),:=А 3 СЕВ, СК,2),:=В 3 СЕР, (K, 32, :7C 
EXEC4,4,B,C) ; IMPR р ‘Fic! CERCLES ; 


` 


‘COM! X$ CALCUL DES PARAMETRES DES RECTANGLES ** 
EXLC&!RECTANGLES@) 3; EXECS,NREC) ; IMPR ; 
РОО? K:=1 'PAS' 1 ‘JUS! МЕС 'FAI' 
"DEB! INDI : A:-ALCIM-8)-^5 ; 
'ST' SURICA) 'ALO! *ALL' INDI 5; 1В.СА),: 
LONI : B:-zALCIM-8)45 ; 
‘ST’ SURICBD) 'ALO' 'ALL' LONI 3 IB,.CBO,: 
'SI' ^ ' INF! B 'ALO' 'ALL' INDY ; 
T:A 5; At=B 3 B:-T ; 
INDJ : C:zAL(CJUM-8)4. ; 
'SI' SURUCC) ЛЬО! 'ALL* INDO 
LONJ : В:=ЛЬ C(JM-8 )+4 ; 
sort ср) (О) ALO” "АБЫ! LONJ JB, O), : 
'SI* C 'INF' D MALO! 'ALL' TSL ; 
:=C 3; C:=D ; О:=Т | 


"VRAI! 


УВ АГ" 


; УВ. СС), := 'VRAI' 


l! 


'VRAI! 


we 


; ; 
TSL :'ALL' 'SI* SURLOSCNLOS,A,C) 'OU' SURLOSCNLOS,A,D) 


'OU'! SURLOS(NLOS,B,C) "OU! SURLOSCNLOS,B,D) 
ALO CHGR 'SIN' LOAD ; . 


ve 


we 


‘es 


we 


CHGR : ІВ, С^), :=1В, СВ), :=чВ. CC), :zJB, (0), := ‘FAUX! 


'ALL' INDI ; 

LOAD : REC,CK,1),:-À ; REC.CK,2),:=B ; 

РЕС, (К,3),:=С ; PEC, CK,4),:=D ; 
EXEC4,A,B,C,D) ; IMPR р 'FIN' RECTANGLES ; 


# 
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wee 


$ 


900 


9 02 
910 


912 


10 


PAUSECI) ; 
'SI* CLECID 'ALO* 'ALL* BEGIN j; 
PH:- 'SI' CLEC6) 'ALO' 'VRAI* ISIN! 'FAUX! ; 
"РОЈ? М:=0 'PAS' 1 ‘JUS! JM$80 ‘FAI! 
'DEB' ЕХ С&!#_ ОРА 110) ; ТМРР ; 
"POUT Tiel !PAS' 1 'QUS' TH *F AI" 
"РЕВ! POU’! J:zl«M*80 'PASt 1 'JUS' 80*(M«1) 'FAI' 
"РЕВ? NC:zPN ; 
'POU' Кш] PAS? 1 'JUS' NLOS ‘FAI! 
'DEB* A:=I-LOS. СК,Т», ; 
B:zJ-LOS.CK,225, ; C:=LOS. K,32, ; 
‘ST! A+B ING! C TET! A-B TING! C 
"ЕТ! B-A 'ING'! C 'ET'! -A-B TING!" C 
"АБО!" NC:= "МОМ?! NC  'FIN' ; 
'POU'K:zl ‘PAS! 1 'JUS* NREC ‘FAI! 
151' I 'SUG' ВЕС, СК,1), 'ET' I 'ING* REC,CK,2), 
"ET! J 'SUG! PEC, GC, 3). ТЕТ! J TING’ REC,.CK,4H), 
'ALO' NC:= NON? МС; 
'POU' K:zl 'PAS' 1 'JUS' NCER ‘FAI! 
"DEB! A:zI-CER,(K,1), ; 
B:izJ-CER.(K,2), ; C:zCER,.(CK,3), ; 
'SI! AF A«-BÀB INF! CXC 
'ALO! NC:= THON’ NC — !'FIN' ; 
‘POU! К:=} 'PAS' 1 'JUS' NELL 'FAI' 
DES! C:IzELL.(K,3D, 3 OFS =ELL.CK,4), ; 
A:zI-ELL,CX,1), 3 В:=У-ЕЪЬ, (К,2>), ; 
tS]! A/C*A/C+B/D*B/D 'INF' 1 
"ALOT NC:= NON! NC МР! ; 
"51' NC "ЛЬО! EXLCE*Q) 'SIN' EXLCE U) 
'FIH' POINT ; 
'SI' СЕС) 'ALO' IMPR ; 
'SI' CLEC3) ‘ALO! 
'DEB' PERF 3; EXL(€Z@) ; PERF ‘FIN! 
'SI! CLECS) 'ALO!t 
'DEB' EXEC4, IM I) ; IMPR 'FIN' ; 
'FIH' LIGNE ; 
EXLCEI!I!FBQ); ІГРА ; 
'FIN' RLOC ; 
EXLCE!!FFQ) ; IMPR ; 
PAUSE (7) ; 
"ALL! BEGIN ; 
ео 


. 
P 


РАЧЅЕ С5) ; 


http:;//www.artinfo-musinfo.org Artinfo MusInfo # 14, 1973, page 11 / 26 


11 


PRADUCTEUR — RUBAH CAE Сав 500 


HEE kar x IK Ku X I OG!) O9 KEK 210€ o € A Sus Зее 


1 OM 

1 0M LOPA 

LOPA 
1,0 EV25 1,50 ViTVhl 
1,1 ЕҮ25 1,01 У1ТҮ58І 
1,2 EV23 1,42 RVI 53 7Y13 
1,3 X 1,43 АЗЕВ15 
l4 АДЕТ) 1,4 ALSERZ 
1,5 ViTV25 1 ,k5 X 
1,6 RV1 4A Y13 1,46 S15V1 
1,7 3EV1 1,47 RVL ,52215 
1,9 X 1,48 A1BM3 „0+ 
1,9 n15EV256 1,9 ViTVhh 
1,10) S3V1 1,50 V1TV58I 
1,11 nÆVO 1,51 RV1 ,16Y13 
1,12 ЕТО 1,52 AWERL5 
1,13 V1TV25 1,53 S15R3 
1,14 S2V1Z13 1,54 ASEREPLS | 
1,15 ViTV56Y13 1,55 ASER3NL5 
1,16 ViTVh^yi3 1,56 X 
1,17 RV1 ,12Y13 1,57 А15Е\ О 
1,18 TIM - 1,58 AXEMe,0- 
1,19 ALSVI 1,59 VLTV- 
1,20 V151V35623 1,60 VLTV581 
1,21 Ү15ТУН ҮЗ 1,61 EV(Z13 
1,22 FZ13 Š 1,62 EV 26213 
1,23 RV1 ,22213 1,63 X 
1 ,2h X 1,6: ALEM3 , 0+ 
1 «25 RV1,1222 1,65 viTvhl. 
1,26 S15V25673 1,66 ViTV58rI 
1,27 A ERISZ3 1467 EV11713 
1,28 АЛ 5ЕҮЗ 23 1,68 EVI5Y13 
1,29 RVL ЧЕЗ 1,69 VISTRS 
1,30 515V36k 1,70 А15У1 
1,31 ViSTRH Lon RVI ,58Y13 
1,32 FY13 1 72 EV25 - 
1,33 RVI ,32Y13 1,73 EV23 
1,34 i 1,74 RV1 ,'T 
1,35 А2ЕВ1.5 L T X 
1,36 X 1.76 X 
1,37 51571 1,77 X 
1,38 КУ1 43715 1,78 X 
1,39 АДЕМ? ‚0+ 1 ,79 X 
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1h 
Pierre-Louis NEUMANM 


RAA RAA RAR АССА САА ААС 
* DEFINITION D'UN ESPACE 
* 
* 
a. 


У 


COMPREHENS IBLE [ 
RER RIRE IR KR RE TRES RAR ЗАСАХ 


X taaa 


Mon intention dens ce programme est de définir un systeme de construction 


qui permette de rendre un dessin mentalement intéressant. 


Il s'agit de déterminer un espace à deux dimensions pouvant être "compris" 
par le spectateur après qu'il ait établi4,, relations entre les éléments de cet 


GSPACee 


Le système de construction repose sur une règle de construction qui uti- 
lise une loi géométrique visuellement identifiable (premier niveau de compré- 


hension : repérage du processus de construction ). 


Le syst3me est initialisé par un objet de base (choisi par l'utilisateur ) 
qui aura une influence à toutes les étapes de la construction (deuxième niveau 


de compréhension : repérage du développement spécifique à chaque objet de base) 


Le programme CONSTRUCTION 1 permet de construire un espace à deux dimen- 
sions à partir d'un objet quelconque, c'est à dire qu'il a pour but de placer 
un .ertain nombre d'éléments les uns par rapport aux autres en se référant à 


un objet de base (ou objet modéle ) situé dans le plan. 


Chaque élément se présentera sous la forme d'une liste de caractóristi- 
ques. D'autre part la position de chacun d'eux sera déterminée par une loi géo- 
métrique simple. L'objet modèle sera une liste d'éléments qui devront posséder 
au moins les mêmes caractéristiques que ceux que l'on propoSépour la construc- 
tion. Cette liste s'élargira en cours de programme par adjonction de chaque 


nouvel élément positionné. 


Le dessin final dépendra donc du choix du nombre d'éléments, de leurs 


caractéristiques, et de la forme de base. 


Le langage LISP 510, particulièrement adapté au traitement des listes et 


à l'enalyse des caractéristiques, sera le langage utilisé. 


http://www.artinfo-musinfo.org Artinfo Musinfo # 14, 1973, page 15 / 26 


15 


DESCRIPTION DU PROGRAMME 


1 Les éléments 
Tous les éléments seront des segments de droite caractérisés par : 
1/ une orientation plane : horizontale H , verticale V 
2/ Une longueur quelconque L 
3/ Une intensité quelconque I 
Exemple : (H 5 1) ligne horizontale de longueur 5 et d'intensité 1 
Les éléments de l''objet modèle" auront comme caractéristiques supplémentaires 
les coordonnées de leurs extrémités. 


Exemple : (H 5 1 (6.3)(6.2)) 


2 La loi géométrique 
Un élément sera positionné par rapport A un autre élément déjà positionné ; 


pour celà ils devront avoir même longueur, même orientat ion et des intensités 


différentes. 
Soient X et Y deux éléments. Soit X déjà positionné et e,f,g,h les coor- 
données de Y à calculer, 
(H 5 1 (asb)(c.d)) 
(H 5 3 e £ g h) 


Sachant que A = L(X)/2 les coordonnées de Y seront : 


Exemple : X 
Y 


| 


1/ si I(Y) supérieur à 1(Х) et orientation H ou si I(Y) inférieur à I(X) 
et orientation V alors e = А-а, f = Atb, g = A-c, h = Atd (Figure 1) sinon 
e = Ata, f = A-b, g = Atc, h = A-d (Figure 2) . 

2/ si I(Y) inférieur A I(X) et même orientation H ou méme orientation V 
alors e = A-a, f = A-b, g = A-c, h = A-d (Figure 3) sinon si I(Y) supérieur A 
I(X) et même orientation H ou méme orientation V alors 


e = Ata, f = А, g = А, h = Atd (Figure 4) ° 


3 Les contraintes 

Deux éléments ne devront pas être situés sur une même ligne ou une même 
colonne, 

Deux éléments de même intensité ne devront pas être à la fois parallèles 
et en regard l'un de l'autre, 

Les éléments dont la position respectera les conditions énoncées ci-dessus 
seront acceptés et mis en queue de la liste "cbjet-modàle", dans tous les autres 
cas ils seront refusése Le listing indiquera les éléments refusós et acceptés, 


ces derniers suivis de leur position, 
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авар аә др арал Ар арар ер ця кр 4р ар Ар р Яр 4з ADE 

(ARE 49 42 Cu ww ARS uw но ОЪ Чэ Ёз I9 Уз {ъз къ еә í. 

as р, ' as 

à ONSFRUCTION 1 5 
` 

ур ар AJ AP APTA AR аа ор ерда DCR ар др ъа ар KF р цв 

wc Чу му съ и ee U 7 - ` d'or w еъ Ч льно dy 


(GE силәр? (Xx) 

CCADOR (со? 33) 

CE COTEL Cx) 

(Силой (Сог ху) `D 

(ОЕ COT:2 (X) 

CCOTEL COR X222 

ЗЕ CLA CX) (САЗ COTE’ Хэ?) 
Cok С1Б СХУСС AOR (СТЕ XDD) 
QUE С2А CXICCARCCOTE2 Хуу? 
COE C2B CX) (C/D3(COTE2 Хуу) 


(ОЕ APPELOCX Y) 
(Соту 
CCHJLL. XDYD 
CT CCO''sSC(CAR X) 
CAPPENDCCDR X) уу?) YD 


COE OELETECX Y) 

(C OPO 

(Суы Y)3FIL у 

CCŒNUAL X(C/n Y)) 

(CDR Уэ) 

CT (ÓCOr:S (CAP Y) 

(DELETE X(CD^ YDD D 


(РЕ DIAG CW X Y Z) 
; CALCUL DES COOSDUPLEESTS; 
CLIST (CX CLA Z) м) CY (cik Z) v) 
CX C2N Z) н) CY CGC2B Z) у) у 


COE NORJET Ce X Y) 
; AJOUTE L ZLCDEGEGTI POSITIGHNE Fi. CUEUE DF LA 
LISTE OBJET iiLoELA ; 

CPP OG: 

(P^ INTCSETC w CAPPER tt (LIST 

(LIST CCR x) (C£ xd) 
- (LIST (CAS X) (соро ХУ) 

(Co! sC^PPEuD (Can Y) (LIST v) ) 

(DELETE (CD? Y) (COR YD DD 


COE VERIF (V w X Y) 
(CO'D CCE М COUCTE МУ) 
CPLACE w (ПУОТЕ CIB) w X Y CQUOTE САРВ) (GUOTE C1A) 
(QUOTE CA^.) DD 
CTCPLACE У CCUGTE Ci2) м X Y (QUOTE СА?) 
(UOTE СІВ) (Ou. TE C/03)2)225) 
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CoE СОТ (QV X Y Z) (Ел CO i & n) 
PUUSPOGOUROSE ОПЕ РОТЕ: DE L ELEMENT Ei: FulicTIOR 
DE SES САЗА СТЕЗІЄТІ ЗЕ ЗЖИ; 

CSET © (СМОГ Y)) 

(SETA ^ (САор 77) 

CSETS о (ПО (СА Y) 2 DD 

(CNED (Соз 

CARD 

EN u СТЕ НУ 

(GT P ^53 

CARD 

CES V CQUOTE YD) 

(LT ^? 52) 

CSETE © (DIAG n CCUGTE ОЛЕРЕ?) ÇCOUUTÉ PLUS) Z 222 
CFCSET2 G (DIAC ñ СЗУоТЕ PLUS) CuUCTE DIFFEX) Z 222 D 
CAD СУЕТЕ ^ V X P ) QETURI! 5:932 

(сом› ССТ = °) | 

CSET © (DIAG G (OUOT- DIFFELMO ÇCOUCTE DIFFiX D Z ))) 
CTCSET2 ^ (DIAG О COULTE PLUS) CUITE PLUS) Z ))) D 
CAND (VESIF ^ V X P ) RETIRE 7:22 

CPE TURE) DO 


(ЗЕ OBJET CXOCP^OG(O P o 5 
ЗАКСОГРАВЕ LE P&ki En ELEMEST CA PCSITIGHNER) 
ЕТ LA LISTE OBJET oL sss; 
a (SETO © COA? X23) 
CSETS ^ CCAR X5) 
CSET? P (СА Су) 
(С) CONULL 7) CrTusM D) 
CEARD 
CES CCADK P) (СА Оў) 
r^ ССА P) CCAR 07) 
C'OTCE^ (CADD3 P) (CADO? 025222 
(G0 ADD) 
à CSET^ ^ (COR 052 
(Агро '; (GO EDD CCo F) 
^ (cor! CCEN (САЗ О) CUCTE H2) 
(SET? ^(C"OSIT (ТЕ НЭ CCAR X) 9 Р))) 
CT СЅЕТ:: n (PCSIT CEUTE V) (CA xXx) 0 P5222 
CAND CT г) (GJ D)) 
CSETC X CMOBJET O R XDD 
(Có NE) 
F CP^IN1 CQUOTE ?^EFUSE) 
(P^ INT 9) 
CSET: X (DELETE О ХУ) (Go nE) )) 


rm 


(COE PLACE С S U v xX Y Z BID) 
SERVES ТЕТЕ QUE L БЕРГЕР POSITIO НЕ 
SATESFAIT AUX CO TAS INTESA; 
(CAD CC"ULL v) T) 
CCo 
CAD 
(E^ (CAA2 v) UD 
(E: С с CSET™ PID Ces? vd) (X RID) 
CAT) 
(E^ CCAA v) u) 
CE vU CCAD? PI) D) 
(Ca CY РІО?) (GZ 2 )) > DD 
CTCPLACE "^ € Ú (COR VO " X Y Z BID))DD 
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^ 2 (161 101) (101 1055) 
(4 5 3 (106 101) (106 1963) 

^ 1 (10! 161) (106 1015) 
Су б h (101 106) (106 1963) 


D 

CH ^ 1) (H6 2) CH 6 35 CH 6 5) 

(ч 6 1) (45 23 (46 3) CH 6 4) 

(V ^ 1) (625 Су б 33 Gv G 6) 

(v б 1) (25 (535 (и лу 

222 
CH6 1 C 108 98 > C 105 103 > ` 
CHS 2 С 109 9" ) C 109 103 >) 
CHS 3 € 38 104 У C€ 98 109 > > 
CH 55 € 103 104 3 C 103 109 D D 
( H ^ 1 C 112 95 2 C 112 100 > `) 
REFUSE Си 6 2 ) 
(45 3 С 115 98 ) C 115 103 ) D) 
CH ^5 4 С 107 101 С 107 106) D 
Су & 1 C9% 109 ) C 103 109 > D 
(7/52 С 104 9% 5 C 109 98 )) 
C ^ 3 C 104 104 ) C 109 104 > у 
Cv 5 & € 107 95 2 C 112 95 ) D 
CYA 1 C 168 92 5 C 109 92 > > 
Су ^ 27 € n 103 ) C 193 103 D D 
CY A 3 C301 112 ) C 10€ 112) у 
C V7 4 C 105 115 С 109 115 `) ` 


— 
гы 
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C(OnJETCOJO TE 
CC 
CH € (92 98) (92 1032) 


с 9 
Chi 5 2 C99 99) C99 10322 
2 (111 100) (111 190322 


CH C 3) CH 6 4) СНБ 1) CH 6 9) 
C+ 5 15 CH 5 0) CH 5 4) CH 5 3) 
Cig 35 (45 15 CH k 0) CH L 4) 


NA 
— х, 
Ë 


He 3 (С 89 101 2 C 69 106 2D D 
i| ^ С 95 1012 С 95 106 D D 
H^ 1 85 98 5 C 86 193 ) ) 
t6 n 98 95 > C 98 103 D D 
'151 C 191 97 2 C 101 101 2D D 
H4 n 67 97 ) € 97 161 2 D 


лы‘ 
a 


105 97 2 (С 165 101 ) > 
H 4 109 192 ) C 105 105 D D 
HON 197 100 2 C 197 153 ) > 
"EFJSE (C H 40 D 

C H% L С 113 102 2 C 113 105 2 ). 


Y! 


‚ч 


78S 7878 £ м И N N EN 


C 
C 
C 
C 
C 105 99 2 C 103 105 2 > 
C 
C 
C 


ны 
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aus ad am ae ë gie uM «ma. gos = "агы > эй» me | 


qe m EC 


Lo se ewe we we en e 


ОНИ: 
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CoOrJuETC^JOTE 

CC 

C? 9 2 (1061 103) (109 1035) 
Cy 9 3 (101 1055 C109 105255 
(17 2 (106 151) (106 1072525 
CH 7 3 C105 101) C104 10725) 


) 

CH 7 15 CH 7 2) CH 7 3) 

(17 15 CH 7 2) CH 7 3) 

CH 7 1) CH 7 2) CH 7 3) 

CŒ а 1) CP 9 2) (49 3) 

Су 9 1) С! 9 2) (79 3) 

( о 1) G 9 25 G: 9 3) 

2322 
CH 7 1 С 109 95 ) С 109 105 ) `> 
CH 7 2 C107 98 2 C 107 104 > > 
C H7 3 C 163 104 ) C 107 110 >) 
C H7 1 110 95 ) C 110 191 >) D 


ti 
ctFUSE ( H7 2 ) 


€ H 7 3 C113 98 > € 113 194) ) 
CH 7 1 C 166 101 ) C 165 167 D D 
(C ii z 2 (С 116 95 5) C 116 101 D D 
PEFUSE (C H7 3 D 

(V.9 1 C 97 107 2 C 105 107 2 D 
Cv 9 2 С 97 109 2 € 105 109 D D 
("73501059925 11$ 95 ) D 
CY 9 1 C 93 113 ) C 101 113 > 
MEFUSE ( v 02 D 

Су 9 $ (97 117 ) C 105 117 D D 
Cv 9 1 (С 161 95 5 С 109 95 D D 
Cv 9 2 € оз 121 92 C 101 121 D ) 
PEFUSE CV 9 3 D 

i IL 
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Le présent bulletin répond à une visée toute didactique : livrer sous 
forme accessible aux nouveaux venus dans les groupes de travail courants 

~ de l'information technique et bibliographique en rapport avec leurs 
disciplines ; 

- des programmes commentés de tous niveaux permettant un eccès relati- 
vement rapide à des techniques de programmation appropiées, ainsi qu'une 


implémentation aisée. 


On s'est efforcó, dans la mesure du possible, de ne pas établir de 
clivage trop net entre les disciplines artistiques et scientifiques concer- 
nées (musique, arts plastiques, poésie, architecture, logique, informatique), 
mais tout au contraire, ne serait-ce que par des techniques de programmation 


communes. 


L'aspect pédagogique du présent bulletin refléte une préoccupation 


constante du groupe, à savoir ne pas se satisfaire en dernier ressort de 


méthodes de programmation trop élémentaires. 


Le contenu des textes ct des programmes n'engage que leurs auteurs. 
/ 
Pour tous renseignements et composition des livraisons à venir, s'adres- 
Ser à Jacques ARVEILLER, Département d'Informatique, Université PARIS VIII, 


Route de la Tourelle, Paris XII?. 


Pour tout envoi, s'adresser à Patrick GREUSSAY, móme adresse. 


— 
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